1 REM*****KEYBOARD***** 2 REM********BY******** 3 REM***BRIAN DOBBS**** 4 REM*TIMMINS, ONTARIO* 5 POKE53280,12:POKE53281,0 10 PRINT"[147]":PRINTCHR$(14):PRINT"":PRINTTAB(8)"[215]ELCOME TO THE WORLD OF 20 [153]"":[153][163]8)"LENOMMODORE 64 LENOMPUTING":[153]"":[129]T[178]1[164]4000:[130] 1000 [141]2800 1140 [153]"AS YOU CAN SEE, THE KEYBOARD FOR THE" 1150 [153]"COMMODORE 64 LOOKS LIKE A STANDARD TYPE" 1160 [153]"WRITER. DON'T BE ALARMED IF YOU DON'T" 1170 [153]"SEE ALL THE SYMBOLS ON EACH KEY BECAUSE" 1180 [153]"WE'LL EXPLAIN AS WE GO ON.":[153]"":[153]"HIT SPACE BAR TO CONTINUE" 1190 [161]A$:[139]A$[178]""[167]1190 1200 [141]2800:[153]"THE RETURNWAIT KEY IS USED TO TELL THE COM-" 1210 [153]"PUTER THAT YOU HAVE ENTERED INFORMATION" 1220 [153]"AND TO STORE IT INTO IT'S MEMORY. WHEN" 1230 [153]"WRITING A BASIC PROGRAM, YOU WILL HIT" 1240 [153]"THIS KEY AFTER YOU HAVE COMPLETED THE" 1250 [153]"LINE OF COMPUTER COMMANDS.":[153]"HIT SPACE BAR TO CONTINUEWAIT" 1270 [161]A$:[139]A$[178][199](32)[167]1320 1280 [129]A[178]1413[164]1417:[151]A,32:[130]:[129]B[178]55685[164]55689:[151]B,0:[130] 1290 [129]T[178]1[164]900:[130]:[136]A[178]1413:[136]B[178]55685:[151]A,18:[151]B,1:[151]A[170]1,20:[151]B[170]1,1 1300 [151]A[170]2,21:[151]B[170]2,1:[151]A[170]3,18:[151]B[170]3,1:[151]A[170]4,14:[151]B[170]4,1 1310 [129]T[178]1[164]900:[130]:[137]1270 1320 [141]2800 1340 [153]"IF THE SHIFTWAIT KEY IS PRESSED AND ANY KEY" 1350 [153]"WITH GRAPHIC SYMBOLS ON IT, THEN THE" 1360 [153]"SYMBOL ON THE RIGHT OF THE KEY WILL BE" 1370 [153]"DISPLAYED. IF SHIFT IS PRESSED ALONG" 1380 [153]"WITH A SPECIAL FUNCTION KEY, IT WILL" 1390 [153]"GIVE YOU THE FUNCTION ON THE UPPER PART" 1400 [153]"OF THAT KEY.":[153]"HIT SPACE BAR TO CONTINUEWAIT" 1410 [161]A$:[139]A$[178][199](32)[167]1460 1420 [136]A[178]1427:[136]B[178]55699:[136]C[178]1450:[136]D[178]55722:[151]A,32:[151]B,1:[151]A[170]1,32 1430 [151]B[170]1,1:[151]C,32:[151]D,1:[151]C[170]1,32:[151]D[170]1,1:[129]T[178]1[164]900:[130] 1440 [151]A,19:[151]B,1:[151]A[170]1,8:[151]B[170]1,1:[151]C,19:[151]D[170]1,1:[151]C[170]1,8:[151]D[170]1,1 1450 [129]T[178]1[164]900:[130]:[137]1410 1460 [141]2800 1470 [153]"THE 2 CRSRWAIT KEYS ALLOW THE USER TO MOVE" 1480 [153]"THE CURSOR (FLASHING SQUARE) IN ANY" 1490 [153]"DIRECTION. IT IS USED ALONG WITH THE" 1500 [153]"SHIFTWAIT KEY TO MOVE IT IN THE DIRECTIONS" 1510 [153]"MARKED ON THE KEYS. HOLDING DOWN THESE" 1520 [153]"KEYS WILL KEEP THE CURSOR MOVING UNTIL" 1530 [153]"YOU LET GO OF THE KEY.":[153]"HIT SPACE BAR TO CONTINUEWAIT" 1540 [161]A$:[139]A$[178][199](32)[167]1580 1550 [136]A[178]1453:[136]B[178]55725:[151]A,32:[151]B,0:[151]A[170]1,32:[151]B[170]1,0:[151]A[170]3,32 1560 [151]B[170]3,0:[151]A[170]4,32:[151]B[170]4,0:[129]T[178]1[164]900:[130]:[151]A,3:[151]B,1:[151]A[170]1,18 1570 [151]B[170]1,1:[151]A[170]3,3:[151]B[170]3,1:[151]A[170]4,18:[151]B[170]4,1:[129]T[178]1[164]900:[130] 1575 [137]1540 1580 [141]2800 1590 [153]"IF YOU HIT THE INST/DELWAIT KEY, THE CURSOR" 1600 [153]"WILL DELETE THE PREVIOUS CHARACTER YOU" 1610 [153]"HAVE JUST TYPED AND THE LINE WILL MOVE" 1620 [153]"IN TO FILL THE SPACE. PRESSING SHIFT" 1630 [153]"INST/DELWAIT ALLOWS YOU TO INSERT A LETTER" 1640 [153]"IF YOU HAPPEN TO MAKE A MISTAKE.":[153]"HIT SPACE BAR TO CONTINUEWAIT" 1650 [161]A$:[139]A$[178][199](32)[167]1680 1655 [136]A[178]1256:[136]B[178]55528:[151]A,32:[151]B,0 1660 [151]A[170]1,32:[151]B[170]1,0:[129]T[178]1[164]900:[130]:[151]A,9:[151]B,1:[151]A[170]1,4:[151]B[170]1,1 1670 [129]T[178]1[164]900:[130]:[137]1650 1680 [141]2800 1690 [153]"PRESSING CLR/HOMEWAIT WILL MOVE THE CURSOR" 1700 [153]"TO THE UPPER LEFT HAND CORNER OF THE " 1710 [153]"SCREEN. A SHIFTED CLR/HOMEWAIT WILL CLEAR" 1720 [153]"THE SCREEN AND POSITION THE CURSOR AT" 1730 [153]"THE TOP LEFT HAND CORNER OF THE SCREEN." 1740 [153]"THIS POSITION IS KNOWN AS 'HOME'.":[153]"PRESS SPACE BAR TO CONTINUEWAIT" 1750 [161]A$:[139]A$[178][199](32)[167]1780 1760 [136]A[178]1253:[136]B[178]55525:[151]A,32:[151]B,0:[151]A[170]1,32:[151]B[170]1,0:[129]T[178]1[164]900:[130] 1770 [151]A,3:[151]B,1:[151]A[170]1,8:[151]B[170]1,1:[129]T[178]1[164]900:[130]:[137]1750 1780 [141]2800 1790 [153]"USING THE RESTOREWAIT KEY WILL BRING THE" 1800 [153]"THE COMPUTER BACK TO THE NORMAL STATE" 1810 [153]"THAT IT AS WAS IN BEFORE IT WAS CHANGED" 1820 [153]"BY A PROGRAM OR SOME OTHER COMMAND." 1830 [153]"HIT SPACE BAR TO CONTINUEWAIT" 1840 [161]A$:[139]A$[178][199](32)[167]1890 1850 [136]A[178]1334:[136]B[178]55606:[151]A,32:[151]B,0:[151]A[170]1,32:[151]B[170]1,0:[151]A[170]2,32 1860 [151]B[170]2,0:[151]A[170]3,32:[151]B[170]3,0:[129]T[178]1[164]900:[130] 1870 [151]A,18:[151]B,1:[151]A[170]1,5:[151]B[170]1,1:[151]A[170]2,19:[151]B[170]2,1:[151]A[170]3,20 1880 [151]B[170]3,1:[129]T[178]1[164]900:[130]:[137]1840 1890 [141]2800 1900 [153]"THE 4 FUNCTIONWAIT KEYS ON THE RIGHT SIDE" 1910 [153]"OF THE KEYBOARD CAN BE PROGRAMMED TO DO" 1920 [153]"ENDLESS AMOUNTS OF FUNCTIONS. THEY ARE" 1930 [153]"USED TO DO REPETITIVE TASKS WITHIN A" 1940 [153]"PROGRAM. EACH KEY HAS 2 FUNCTIONS AND" 1950 [153]"CAN BE EXECUTED WITH THE SHIFT KEY." 1960 [153]"PRESS SPACE BAR TO CONTINUEWAIT" 1970 [161]A$:[139]A$[178][199](32)[167]2040 1980 [136]A[178]1260:[136]B[178]55532:[129]C[178]A[164]1500[169]80:[151]C,32:[130] 1985 [129]D[178]B[164]55772[169]80:[151]D,0:[130] 1990 [129]C[178]A[170]1[164]1501[169]80:[151]C,32:[130]:[129]D[178]B[170]1[164]55773[169]80:[151]D,0:[130] 2000 [129]T[178]1[164]900:[130] 2010 [151]A,6:[151]B,1:[151]A[170]1,49:[151]B[170]1,1:[151]A[170]80,6:[151]B[170]80,1:[151]A[170]81,51 2020 [151]B[170]81,1:[151]A[170]160,6:[151]B[170]160,1:[151]A[170]161,53:[151]B[170]161,1:[151]A[170]240,6 2030 [151]B[170]240,1:[151]A[170]241,55:[151]B[170]241,1:[129]T[178]1[164]900:[130]:[137]1970 2040 [141]2800 2050 [153]"THE CTWAIT KEY ALLOWS THE USER TO SET THE" 2060 [153]"FIRST 8 COLORS AND TO CREATE REVERSE" 2070 [153]"FIELD CHARACTERS. PRESS SPACE... IS IN" 2080 [153]"REVERSE FIELD. THE CTRLWAIT KEY MUST BE" 2090 [153]"HELD DOWN WHILE PRESSING ANOTHER KEY." 2095 [153]"CTRLWAIT IS USED TO SCROLL A PROGRAM LIST." 2100 [153]"PRESS SPACE BAR TO CONTINUEWAIT" 2110 [161]A$:[139]A$[178][199](32)[167]2150 2120 [136]A[178]1305:[136]B[178]55577:[151]A,32:[151]B,0:[151]A[170]1,32:[151]B[170]1,0:[129]T[178]1[164]900:[130] 2130 [151]A,3:[151]B,1:[151]A[170]1,20:[151]B[170]1,1:[129]T[178]1[164]900:[130]:[137]2110 2150 [141]2800 2160 [153]"THE RUN/STOPWAIT KEY TELLS THE COMPUTER" 2170 [153]"TO STOP WHERE IT IS WHEN EXECUTING A" 2180 [153]"PROGRAM. IT IS USED TO EXIT FROM THE" 2190 [153]"PROGRAM. USING RUN/STOPWAIT IN THE SHIFTED" 2200 [153]"MODE, WILL ALLOW A PROGRAM LOAD FROM" 2210 [153]"TAPE." 2220 [153]"PRESS SPACE BAR TO CONTINUEWAIT" 2240 [161]A$:[139]A$[178][199](32)[167]2270 2250 [136]A[178]1385:[136]B[178]55657:[151]A,32:[151]B,0:[129]T[178]1[164]900:[130]:[151]A,18:[151]B,1 2260 [129]T[178]1[164]900:[130]:[137]2240 2270 [141]2800 2280 [153]"THE COMMODOREWAIT KEY PERFORMS A VARIETY OF" 2290 [153]"FUNCTIONS. FIRST IT ALLOWS MOVEMENT BE-" 2300 [153]"TWEEN TEXT AND GRAPHICS MODE. IF YOU" 2310 [153]"HOLD DOWN THIS KEY AND TYPE A KEY WITH" 2320 [153]"A GRAPHIC SYMBOL,THE SYMBOL ON THE LEFT" 2330 [153]"HAND SIDE WILL BE DISPLAYED." 2340 [153]"PRESS SPACE BAR TO CONTINUEWAIT" 2350 [161]A$:[139]A$[178][199](32)[167]2380 2360 [141]2600 2370 [137]2350 2380 [141]2800 2390 [153]"BY HOLDING THE COMMODORE KEY AND SHIFT," 2400 [153]"THE DISPLAY WILL CHANGE TO UPPER/LOWER" 2410 [153]"CASE. THIS KEY ALSO ALLOWS SELECTION OF" 2420 [153]"THE SECOND SET OF 8 COLORS BY HOLDING" 2430 [153]"THE KEY AND PRESSING THE COLOR KEY." 2435 [153]"IT ALSO LOADS DURING A PROGRAM SEARCH." 2440 [153]"HITSPACE BAR TO CONTINUEWAIT" 2450 [161]A$:[139]A$[178][199](32)[167]2480 2460 [141]2600 2470 [137]2450 2480 [153][199](14)"LOAD":[153]"(null)HIS CONCLUDES THE DESCRIPTION OF THE" 2490 [153]"LENOMMODORE 64 KEYBOARD. RIGHT$F YOU ARE STILL" 2500 [153]"IN DOUBT ABOUT THE FUCTIONS OF THE SOME" 2510 [153]"OF THE KEYS, REFER TO THE (null)SER'S GUIDE" 2520 [153]"OR THE (null)RORAMMER'S (null)EFERENCE CHR$UIDE. RIGHT$F" 2530 [153]"YOU WOULD LIKE TO REVIEW THE KEYBOARD" 2540 [153]"SECTION ONCE MORE HIT 'ASC1'WAIT,IF NOT HIT" 2550 [153]"'ASC3'WAIT." 2560 [161]A$:[139]A$[178][199](133)[167]1000 2570 [161]A$:[139]A$[178][199](134)[167][128] 2580 [137]2560 2600 [136]A[178]1465:[136]B[178]55737 2610 [151]A,32:[151]B,0:[129]T[178]1[164]900:[130]:[151]A,3:[151]B,1:[129]T[178]1[164]900:[130]:[142] 2800 [153]"LOAD":[153][199](142):[153][163]9)"COMMODORE 64 KEYBOARD":[153]"" 2810 [153]"ORLEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LEN=LENLEN=LENLEN^ORLENLEN^" 2820 [153]"PEEK_PEEK1PEEK2PEEK3PEEK4PEEK5PEEK6PEEK7PEEK8PEEK9PEEK0PEEK+PEEK-PEEK\PEEKCHPEEKIDPEEKPEEKF1PEEK" 2830 [153]"-LEN>=>=>=>=>=>=>=>=>=>=>=>=>=>=LEN>LENLEN<-LENLEN<" 2840 [153]"PEEKCTPEEKQPEEKWPEEKEPEEKRPEEKTPEEKYPEEKUPEEKIPEEKOPEEKPPEEK@PEEK*PEEK^PEEKRESTPEEKPEEKF3PEEK" 2850 [153]"-LEN=>=>=>=>=>=>=>=>=>=>=>=>=>=>LENLENLENLEN<-LENLEN<" 2860 [153]"PEEKRPEEKSPEEKAPEEKSPEEKDPEEKFPEEKGPEEKHPEEKJPEEKKPEEKLPEEK:PEEK;PEEK=PEEKRTURNPEEKPEEKF5PEEK" 2870 [153]"-LEN(null)LEN>=>=>=>=>=>=>=>=>=>=>=>LEN(null)LENLEN=LENLEN<-LENLEN<" 2880 [153]"PEEKCPEEKSHPEEKZPEEKXPEEKCPEEKVPEEKBPEEKNPEEKMPEEK,PEEK.PEEK/PEEKSHPEEKCRPEEKCRPEEKPEEKF7PEEK" 2890 [153]"/LEN>LENLEN>LEN>LEN>LEN>LEN>LEN>LEN>LEN>LEN>LEN>LEN>LENLEN>LENLEN>LENLENEXP/LENLENEXP" 2900 [153]" ORLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN^" 2910 [153]" PEEK SPACE BAR PEEK" 2920 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP":[153]"" 2930 [142]